##############################################################################
###+------------+#############################################################
#+-| SET STATUS |---------------------------------+###########################
#| +------------+ The SET STATUS command controls |###########################
#|                the status line of an EDIT      |###########################
#+------------------------------------------------+###########################
##############################################################################
##############################################################################
#+--| Syntax |--------------------+###########################################
#|     SET STATUS <ON || OFF>     |###########################################
#+--------------------------------+###########################################
##############################################################################
##############################################################################
########+---| Description |------------------------------------------+########
########| The status line displays the working directory, selected   |########
########| database file, record pointer position, number of records  |########
########| in the database and scoreboard information.  The status    |########
########| line is updated each time an EDIT changes the information. |########
########| ---------------------------------------------------------- |########
########| ON                                                         |########
########|                                                            |########
########| ON displays status at line 22 during an EDIT.              |########
########| ---------------------------------------------------------- |########
########| OFF                                                        |########
########|                                                            |########
########| OFF designates that the status line is not displayed.      |########
########+------------------------------------------------------------+########
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Dsiplay the status line during an edit.             |#########
#########|                                                          |#########
#########| SET STATUS ON                                            |#########
#########| EDIT                                                     |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    Allow user to turn status line on or off.           |#########
#########|                                                          |#########
#########| PROCEDURE select_status                                  |#########
#########|     IF status_on                                         |#########
#########|         SET STATUS OFF                                   |#########
#########|     ELSE                                                 |#########
#########|         SET STATUS ON                                    |#########
#########|     ENDIF                                                |#########
#########|     status_on = .NOT. status_on                          |#########
#########| ENDPRO                                                   |#########
#########|                                                          |#########
#########|     {...}                                                |#########
#########|     ON KEY &F_10 DO select_status                        |#########
#########+----------------------------------------------------------+#########
##############################################################################